home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Graphics / CyberGraphX3 / CGXV3_Update < prev    next >
Encoding:
Text File  |  1997-10-23  |  14.8 KB  |  336 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; S3          : CyberVision64/3D, CyberVision64
  11. ; Cirrus Logic: Picasso II(+), Picasso IV, Spectrum, Piccolo, Piccolo SD64, Inferno
  12. ;          
  13. ; CyberGraphX V3 ßETA Update Installer ©1996,1997 by Robert C. Reiswig 
  14. ; $VER: V0.61 (October-22-1997)
  15. ; 
  16. ; If you wish to use any part of this installer you must ask. May not be 
  17. ; integrated/placed into any other package! You may NOT change this in an way!
  18. ; You man NOT take or use the ENV definitions and use them without direct
  19. ; permission from me! Changes, suggestions or problems: robr@phase5.de or vgr@best.com
  20. ;********************************************************************************
  21.  
  22. ;********************************************************************************
  23. ; Cyber Release & Boards
  24. ;********************************************************************************
  25. (set @user-level 2)
  26. (set #cyberver "V3 41.2")
  27. (set NoBoard 0)
  28. (set whereback "SYS:Storage")
  29. (message (cat "\nCyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  30.               "\nCyberVision64/3D & CyberVision64\n\nPicasso II(+) & Picasso IV\n\nSpectrum\n\nPiccolo & Piccolo SD64\n\nInferno"
  31.          )
  32. )
  33.  
  34. (welcome)
  35. ;********************************************************************************
  36. ; Read All System information
  37. ;********************************************************************************
  38. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  39. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  40. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  41. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  42. (set fastmem (- totmem graphmem))
  43. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  44. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  45. ( if (= osver 41) ( (set workbench "3.2")) )))))
  46. (set pick 0)
  47.  
  48. ;********************************************************************************
  49. ;English Strings
  50. ;********************************************************************************
  51. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  52.               "by:\n\nVision Factory Development"
  53.           
  54.          )
  55. )
  56. (set #nobackup "\n\nThis installer will copy the correct new V3 Libs and Monitor to the correct places. It will not do any backup currently.\n\nThis will not install V3 for the first time, it just _updates_ a V3 system. A V2->V3 updater is in the works.")
  57. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  58. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  59. (set #wherelibs "Where are your CyberGraphX V3 libraries located? The default is 'SYS:Libs'")
  60. (set #whatboard (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  61. (set #todo-prompt "\nDo you wish to install:\n")
  62. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  63. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  64. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  65. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  66.  
  67. ;********************************************************************************
  68. ;German Strings
  69. ;********************************************************************************
  70. (if (= @language "deutsch")
  71. (
  72.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V3 Bibliotheken und Monitore in die entsprechenden Verzeichnisse. Es wird keine Sicherung vorgenommen.\n\nEs ist keine V3 Erstinstallation, das V3 System wird nur _erneuert_ . Ein V2->V3 Update ist aber bereits in Arbeit.")
  73.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  74.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  75.  (set #wherelibs "Wo befinden sich die CyberGraphX V3 Bibliotheken ? Standard ist 'SYS:Libs'")
  76.  (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:\n"))
  77.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  78.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  79.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  80.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  81.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  82. )
  83. )
  84.  
  85. ;********************************************************************************
  86. ; Start Update
  87. ;********************************************************************************
  88. ;(message #by)
  89. (message #nobackup)
  90.  
  91.  
  92. ;********************************************************************
  93. ; Double Check on the CPU
  94. ;********************************************************************
  95. (set cpu (database "cpu"))
  96. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  97. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  98. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  99. (if (= @installer-version 0)
  100.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  101.   (if (= cpu 68060) (set #cpu 1))
  102. )
  103.  
  104. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
  105.             (prompt #askcpu)
  106.                     (help   #askcpu)
  107.                   (default #cpu)
  108.       )
  109. )
  110.  
  111. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040"))
  112.  
  113. ;*******************************************************************
  114. ;  ASK where cybergfx libs are
  115. ;*******************************************************************
  116. (set wherelibs   (askdir (prompt #wherelibs)
  117.              (help   #wherelibs)
  118.                   (default "SYS:Libs")
  119.          )
  120. )
  121.  
  122. ;*******************************************************************
  123. ;  Copy libs if there
  124. ;*******************************************************************
  125. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd)) )
  126.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  127. )
  128.  
  129. (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  130.   (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  131. )
  132.  
  133.  
  134. (if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= 0 (exists "libs:cgxbootpic.library")) )
  135.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  136. )
  137.  
  138. ;*******************************************************************
  139. ;  ASK what board to update
  140. ;*******************************************************************
  141. (set BGuess 0)
  142.  
  143. (if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 1)) )
  144. (if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 2)) )
  145. (if (> (exists ("devs:monitors/PicassoII")) 0)  (set BGuess (+ BGuess 4)) )
  146. (if (> (exists ("devs:monitors/Spectrum")) 0)   (set BGuess (+ BGuess 8)) )
  147. (if (> (exists ("devs:monitors/Piccolo")) 0)    (set BGuess (+ BGuess 16)) )
  148. (if (> (exists ("devs:monitors/PiccoSD64")) 0)  (set BGuess (+ BGuess 32)) )
  149. (if (> (exists ("devs:monitors/Inferno")) 0)    (set BGuess (+ BGuess 64)) )
  150. (if (> (exists ("devs:monitors/PicassoIV")) 0)  (set BGuess (+ BGuess 128)) )
  151.  
  152.  
  153.  
  154.  
  155.   (set board (askoptions (choices  " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum"
  156.                                    " Piccolo" " Piccolo SD64" " Inferno" " Picasso IV"
  157.                           (prompt #whatboard)
  158.                       (help #whatboard)
  159.                           (default BGuess)
  160.                          )
  161.              )     
  162.   )
  163.  
  164.  
  165.   (if (IN board 0)
  166.    (
  167.  
  168.      ; 0=Z3 - 5=Z2
  169.      (set error (run "tools/ChkCV3DZorro"))
  170.      (if (= error 0) (set guessZ 1) (set guessZ 0) )
  171.   
  172.      (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  173.                        (prompt #askzorro)
  174.                        (help   #askzorro)
  175.                            (default guessZ)
  176.                 )
  177.      )
  178.   
  179.      (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  180.  
  181.      (if (exists (tackon "S3Drivers" (cat "CVision3D" zadd)))
  182.       (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)      
  183.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") ) 
  184.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") ) 
  185.       )      
  186.      )
  187.  
  188.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  189.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  190.      )
  191.  
  192.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
  193.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  194.      )
  195.  
  196.    )
  197.   )
  198.  
  199.  
  200.   (if (AND (exists (tackon "S3Drivers" "CVision64")) (IN board 1) )
  201.    (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)  
  202.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  203.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (optional "nofail") ) 
  204.    )
  205.   )
  206.  
  207.   (if (AND (exists (tackon "CLDrivers" "PicassoII")) (IN board 2) )
  208.    (if (= (exists (tackon "devs:monitors" "PicassoII.info")) 0)  
  209.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  210.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (optional "nofail") ) 
  211.    )
  212.   )
  213.  
  214.   (if (AND (exists (tackon "CLDrivers" "Spectrum")) (IN board 3) )
  215.    (if (= (exists (tackon "devs:monitors" "Spectrum.info")) 0)  
  216.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  217.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (optional "nofail") ) 
  218.    )
  219.   )
  220.  
  221.   (if (AND (exists (tackon "CLDrivers" "Piccolo")) (IN board 4) )
  222.    (if (= (exists (tackon "devs:monitors" "Piccolo.info")) 0)  
  223.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  224.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (optional "nofail") ) 
  225.    )
  226.   )
  227.  
  228.   (if (AND (exists (tackon "CLDrivers" "PiccoSD64")) (IN board 5) )
  229.    (if (= (exists (tackon "devs:monitors" "PiccoSD64.info")) 0)  
  230.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  231.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (optional "nofail") ) 
  232.    )
  233.   )
  234.  
  235.   (if (AND (exists (tackon "CLDrivers" "Inferno")) (IN board 6) )
  236.    (if (= (exists (tackon "devs:monitors" "Inferno.info")) 0)  
  237.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  238.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (optional "nofail") ) 
  239.    )
  240.   )
  241.  
  242.   (if (AND (exists (tackon "CLDrivers" "PicassoIV")) (IN board 7) )
  243.    (if (= (exists (tackon "devs:monitors" "PicassoIV.info")) 0)  
  244.     (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  245.     (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (optional "nofail") ) 
  246.    )
  247.   )
  248.  
  249.  
  250. ;*********************************************************************************
  251. ;* Ask user to install CGXMode 
  252. ;*********************************************************************************
  253. (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  254.                       (prompt #todo-prompt)
  255.                       (help #todo-prompt)
  256.                       (default 3)
  257.           )
  258. ) 
  259.  
  260. (if (IN ToDo 0) 
  261.   ( 
  262.     (set wheremode   (askdir (prompt #wheremode)
  263.                              (help   #wheremode)
  264.                          (default "SYS:Prefs")
  265.              )
  266.     )
  267.  
  268.     (if (exists "CGXMode/CGXMode")
  269.      (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  270.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  271.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  272.      )
  273.     )
  274.  
  275.     (if (IN board 7) (set TTBOARD "PicassoIV") ) 
  276.     (if (IN board 6) (set TTBOARD "Inferno") ) 
  277.     (if (IN board 5) (set TTBOARD "PiccoSD64") ) 
  278.     (if (IN board 4) (set TTBOARD "Piccolo") ) 
  279.     (if (IN board 3) (set TTBOARD "Spectrum") ) 
  280.     (if (IN board 2) (set TTBOARD "PicassoII") ) 
  281.     (if (IN board 1) (set TTBOARD "CVision64") )    
  282.     (if (IN board 0) (set TTBOARD "CVision3D") ) 
  283.  
  284.  
  285.     (if (> board 0)
  286.       (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  287.     )
  288.  
  289.     (if (= @language "deutsch")
  290.      (
  291.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  292.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  293.        (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  294.          (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  295.        )
  296.      )
  297.     )
  298.  
  299.   )
  300. )
  301.  
  302.  
  303. (if (IN ToDo 1) 
  304.   ( 
  305.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  306.                              (help   #whereshowcgxconfig)
  307.                          (default "SYS:Tools")
  308.              )
  309.     )
  310.  
  311.     (if (exists "tools/showcgxconfig")
  312.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  313.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  314.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  315.      )
  316.     )
  317.  
  318.   )
  319. )
  320.  
  321.  
  322. ;*******************************************************************
  323. ;  END
  324. ;*******************************************************************
  325. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  326. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  327.  
  328. (run (cat "run " #mpath "/multiview Changes.txt") )
  329.  
  330. (set @default-dest "sys:")
  331.  
  332. (set #done "Update Complete!")
  333. (if (= @language "deutsch") (set #done "Update fertig!") )
  334.  
  335. (exit #done)
  336.